home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Utilities / Laplace / Projects / physic_PI_14 < prev    next >
Text File  |  1996-07-06  |  564b  |  41 lines
  1. #LAPLACE
  2. #USEFLOAT=FALSE
  3. #SIMPLIFY=TRUE
  4. #ERRBND=15
  5. #EXPDSP=5
  6. #PREC=8
  7. #F1=f(x)=
  8. #F2=g(x)=
  9. #F3=h(x)=f(x)/g(x)
  10. #F4=matrix(
  11. #F5=vector(
  12. #F6=diff(f)
  13. #F7=diff(g)
  14. #F8=diff(h)
  15. #F9=taylor(f,0)
  16. #F10=taylor(f,1)
  17. #F11=%(run type s:startup-sequence)
  18. #F12=
  19. #F13=
  20. #F14=
  21. #F15=
  22. #F16=
  23. #F17=
  24. #F18=
  25. #F19=
  26. #F20=
  27. l=0.96983
  28. T=592.94/300
  29. r=12e-3
  30. rho_L=1.3
  31. rho_Fe=7.8e3
  32. m_K=eval(4/3*pi*r^3*rho_Fe)
  33. m_F=eval(pi*0.2e-3^2*l*rho_Fe)
  34. omega_0=sqrt(10)
  35. phi_0=eval(5.9/360*2*pi)
  36. delta=8.6e-4
  37. f=1 + 2/5*r^2/l^2 + rho_L/rho_Fe - 1/6*m_F/m_K + delta^2/omega_0^2 + phi_0^2/8
  38. g=eval(4*pi^2*l/T^2)
  39. g*f
  40.  
  41.